home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / dualsort.arc / FRAME.BAS < prev    next >
BASIC Source File  |  1987-06-08  |  598b  |  17 lines
  1.  
  2. sub frame(leftcol%, rightcol%, toprow%, bottomrow%) static
  3.     locate toprow%, leftcol%: print chr$(201)
  4.     locate toprow%, rightcol%: print chr$(187)
  5.     locate bottomrow%, leftcol%: print chr$(200)
  6.     locate bottomrow%, rightcol%: print chr$(188)
  7.     for vertline% = toprow% + 1 to bottomrow% - 1
  8.         locate vertline%, leftcol%: print chr$(186)
  9.         locate vertline%, rightcol%: print chr$(186)
  10.     next vertline%
  11.     horizlength% = rightcol% -leftcol% -1
  12.     horizline$ = string$(horizlength%, 205)
  13.     locate toprow%, leftcol% +1: print horizline$
  14.     locate bottomrow%, leftcol% +1: print horizline$
  15. end sub
  16.  
  17.